object fmCity: TfmCity
  Left = 0
  Top = 0
  Caption = 'City'
  ClientHeight = 339
  ClientWidth = 370
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poOwnerFormCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 12
    Width = 39
    Height = 13
    Caption = '&Country'
  end
  object Label2: TLabel
    Left = 21
    Top = 39
    Width = 26
    Height = 13
    Caption = '&State'
  end
  object Label4: TLabel
    Left = 28
    Top = 66
    Width = 19
    Height = 13
    Caption = 'C&ity'
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 125
    Width = 370
    Height = 214
    Align = alBottom
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = dsCity
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    ReadOnly = True
    TabOrder = 6
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnDblClick = DBGrid1DblClick
    OnTitleClick = DBGrid1TitleClick
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 30
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CITY'
        Title.Caption = 'City'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 150
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'STATE_ABBRIVIATION'
        Title.Caption = 'State Abbr.'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 70
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COUNTRY_ABBRIVIATION'
        Title.Caption = 'Country Abbr.'
        Title.Font.Charset = DEFAULT_CHARSET
        Title.Font.Color = clWindowText
        Title.Font.Height = -11
        Title.Font.Name = 'Tahoma'
        Title.Font.Style = [fsBold]
        Width = 90
        Visible = True
      end>
  end
  object btnClose: TButton
    Left = 285
    Top = 8
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'C&lose'
    TabOrder = 5
    OnClick = btnCloseClick
  end
  object txtCity: TEdit
    Left = 53
    Top = 63
    Width = 121
    Height = 21
    TabOrder = 0
  end
  object btnNew: TButton
    Left = 42
    Top = 94
    Width = 75
    Height = 25
    Caption = '&New'
    TabOrder = 1
    OnClick = btnNewClick
  end
  object btnDelete: TButton
    Left = 204
    Top = 94
    Width = 75
    Height = 25
    Caption = '&Delete'
    TabOrder = 3
    OnClick = btnDeleteClick
  end
  object btnSave: TButton
    Left = 123
    Top = 94
    Width = 75
    Height = 25
    Caption = '&Save'
    Default = True
    TabOrder = 2
    OnClick = btnSaveClick
  end
  object btnRefresh: TButton
    Left = 285
    Top = 94
    Width = 75
    Height = 25
    Caption = '&Refresh'
    TabOrder = 4
    OnClick = btnRefreshClick
  end
  object dbcbCountry: TDBLookupComboBox
    Left = 53
    Top = 8
    Width = 145
    Height = 21
    KeyField = 'ABBRIVIATION'
    ListField = 'COUNTRY'
    ListSource = dsCountry
    TabOrder = 7
    OnCloseUp = dbcbCountryCloseUp
    OnDropDown = dbcbCountryDropDown
  end
  object dbcbState: TDBLookupComboBox
    Left = 53
    Top = 36
    Width = 145
    Height = 21
    KeyField = 'ABBRIVIATION'
    ListField = 'STATE'
    ListSource = dsState
    TabOrder = 8
    OnDropDown = dbcbStateDropDown
  end
  object chkFiltered: TCheckBox
    Left = 215
    Top = 11
    Width = 58
    Height = 17
    Caption = 'Filtered'
    Checked = True
    State = cbChecked
    TabOrder = 9
    OnClick = chkFilteredClick
  end
  object IBDatabase1: TIBDatabase
    DatabaseName = 'C:\Invoice Managment - Delphi\invoicemanager.fdb'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    ServerType = 'IBServer'
    TraceFlags = [tfQExecute, tfError, tfStmt, tfConnect, tfTransact]
    Left = 200
    Top = 168
  end
  object IBTransaction1: TIBTransaction
    DefaultDatabase = IBDatabase1
    Left = 280
    Top = 168
  end
  object fbCountry: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end
      item
        Name = 'COUNTRY'
        Attributes = [faRequired]
        DataType = ftString
        Size = 255
      end>
    IndexDefs = <
      item
        Name = 'UNQ1_COUNTRY'
        Fields = 'ABBRIVIATION;COUNTRY'
        Options = [ixUnique]
      end
      item
        Name = 'PK_COUNTRY'
        Fields = 'ID'
        Options = [ixUnique]
      end
      item
        Name = 'UNQ2_COUNTRY'
        Fields = 'ABBRIVIATION'
        Options = [ixUnique]
      end>
    StoreDefs = True
    TableName = 'COUNTRY'
    Left = 200
    Top = 224
  end
  object fbState: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end
      item
        Name = 'STATE'
        Attributes = [faRequired]
        DataType = ftString
        Size = 255
      end
      item
        Name = 'COUNTRY_ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end>
    IndexDefs = <
      item
        Name = 'PK_STATE'
        Fields = 'ID'
        Options = [ixUnique]
      end
      item
        Name = 'UNQ1_STATE'
        Fields = 'ABBRIVIATION;STATE'
        Options = [ixUnique]
      end
      item
        Name = 'UNQ2_STATE'
        Fields = 'ABBRIVIATION'
        Options = [ixUnique]
      end>
    IndexFieldNames = 'COUNTRY_ABBRIVIATION'
    MasterFields = 'ABBRIVIATION'
    MasterSource = dsCountry
    StoreDefs = True
    TableName = 'STATE'
    Left = 256
    Top = 224
  end
  object fbCity: TIBTable
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = True
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'CITY'
        Attributes = [faRequired]
        DataType = ftString
        Size = 255
      end
      item
        Name = 'STATE_ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end
      item
        Name = 'COUNTRY_ABBRIVIATION'
        Attributes = [faRequired]
        DataType = ftString
        Size = 4
      end>
    IndexDefs = <
      item
        Name = 'UNQ1_CITY'
        Fields = 'CITY;STATE_ABBRIVIATION;COUNTRY_ABBRIVIATION'
        Options = [ixUnique]
      end
      item
        Name = 'PK_CITY_STATE'
        Fields = 'ID'
        Options = [ixUnique]
      end>
    IndexFieldNames = 'STATE_ABBRIVIATION;COUNTRY_ABBRIVIATION'
    MasterFields = 'ABBRIVIATION;COUNTRY_ABBRIVIATION'
    MasterSource = dsState
    StoreDefs = True
    TableName = 'CITY'
    Left = 312
    Top = 224
  end
  object dsCity: TDataSource
    AutoEdit = False
    DataSet = fbCity
    Left = 312
    Top = 272
  end
  object dsState: TDataSource
    AutoEdit = False
    DataSet = fbState
    Left = 256
    Top = 272
  end
  object dsCountry: TDataSource
    AutoEdit = False
    DataSet = fbCountry
    Left = 200
    Top = 272
  end
end
